home *** CD-ROM | disk | FTP | other *** search
/ Gurewich OLE Controls for Visual Basic 4 / Gurewich OLE Controls for Visual Basic 4.iso / ocxprog / programs / ch20 / xcheck.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-21  |  2.7 KB  |  87 lines
  1. VERSION 4.00
  2. Begin VB.Form frmXCheck 
  3.    Caption         =   "The X-Check Buttons Program"
  4.    ClientHeight    =   3405
  5.    ClientLeft      =   1650
  6.    ClientTop       =   1830
  7.    ClientWidth     =   5625
  8.    Height          =   4095
  9.    Icon            =   "XCHECK.frx":0000
  10.    Left            =   1590
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   3405
  14.    ScaleWidth      =   5625
  15.    Top             =   1200
  16.    Width           =   5745
  17.    Begin VB.CommandButton cmdNameEntry 
  18.       Caption         =   "Display Name Entry Form..."
  19.       BeginProperty Font 
  20.          name            =   "MS Sans Serif"
  21.          charset         =   1
  22.          weight          =   400
  23.          size            =   12
  24.          underline       =   0   'False
  25.          italic          =   0   'False
  26.          strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   975
  29.       Left            =   1200
  30.       TabIndex        =   0
  31.       Top             =   960
  32.       Width           =   3255
  33.    End
  34.    Begin VB.Menu mnuFile 
  35.       Caption         =   "&File"
  36.       Begin VB.Menu mnuExit 
  37.          Caption         =   "E&xit"
  38.       End
  39.    End
  40.    Begin VB.Menu mnuHelp 
  41.       Caption         =   "&Help"
  42.       Begin VB.Menu mnuAbout 
  43.          Caption         =   "&About..."
  44.       End
  45.    End
  46. Attribute VB_Name = "frmXCheck"
  47. Attribute VB_Creatable = False
  48. Attribute VB_Exposed = False
  49. Private Sub cmdNameEntry_Click()
  50.   frmNameEntry.Show 1
  51. End Sub
  52. Private Sub Form_Unload(Cancel As Integer)
  53. End Sub
  54. Private Sub mnuAbout_Click()
  55.    Dim Title
  56.    Dim Msg
  57.    Dim CR
  58.    CR = Chr(13) + Chr(10)
  59.    ' Prepare the title of the About message box.
  60.    Title = "About the X-Check Program"
  61.    Msg = "This program was written with Visual "
  62.    Msg = Msg + "Basic for Windows, using the "
  63.    Msg = Msg + "TegoSoft Check Button and TegoSoft "
  64.    Msg = Msg + "X Button gadget OCX controls. "
  65.    Msg = Msg + CR + CR
  66.    Msg = Msg + "The TegoSoft Check Button and TegoSoft "
  67.    Msg = Msg + "X Button gadget OCX controls "
  68.    Msg = Msg + "are part of the TegoSoft OCX Control "
  69.    Msg = Msg + "Kit - a collection of various OCX controls. "
  70.    Msg = Msg + CR + CR
  71.    Msg = Msg + "For more information about the "
  72.    Msg = Msg + "TegoSoft OCX Control Kit, contact TegoSoft "
  73.    Msg = Msg + "at:"
  74.    Msg = Msg + CR + CR
  75.    Msg = Msg + "TegoSoft Inc." + CR
  76.    Msg = Msg + "P.O. Box 389" + CR
  77.    Msg = Msg + "Bellmore, NY 11710"
  78.    Msg = Msg + CR + CR
  79.    Msg = Msg + "Phone: (516)783-4824"
  80.    ' Display the About message box.
  81.    MsgBox Msg, vbInformation, Title
  82. End Sub
  83. Private Sub mnuExit_Click()
  84. ' Terminate the program.
  85. Unload Me
  86. End Sub
  87.